program main
    implicit none
    interface 
        function random10(low, high)            ! 该函数返回的数组，所以需要声明接口
            implicit none                   
            real :: low, high                   ! 只需要声明输入和输出，其余函数内部变量不管            
            real :: random10(10)
        end function
    end interface
    real :: a(10)
    call random_seed()
    a = random10(1.0, 10.0)
    write(*,"(10F6.2)") a
end program main


function random10(low, high)
    implicit none                   
    real :: low, high
    real :: len
    real :: random10(10)
    real t
    integer i
    len = high - low
    do i=1,10
        call random_number(t)
        random10(i) = low + len*t
    end do
    return                           
end function